program hope_init

  use hope_init_mod

  implicit none

  character(256) :: namelist

  if (command_argument_count() == 1) then
    call get_command_argument(1, namelist)
  else
    namelist = 'namelist.input'
  end if
  
  call hope_init_run(namelist)

  call hope_init_final()

end program hope_init
